home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aap.d64 / astronomy (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  720b  |  18 lines
  1. 1 IFA=0THENA=1:GOSUB7:LOAD"AST1",8,1
  2. 2 IFA=1THENA=2:LOAD"AST2",8,1
  3. 3 IFA=2THENA=3:LOAD"AST3",8,1
  4. 4 IFA=3THENA=4:LOAD"AST4",8,1
  5. 5 IFA=4THENA=5:SYS2720
  6. 6 SYS32768:END
  7. 7 B$="                                        "
  8. 8 POKE53281,1:POKE53280,6:RN=RND(-TI)
  9. 9 PRINT"[147]"B$:PRINT"[144]                                        ":PRINT""B$
  10. 10 X=19:Y=0:GOSUB17:PRINT""B$:PRINT"[144]                                        "
  11. 11 PRINT""B$"":X=7:Y=2:GOSUB17
  12. 12 PRINT"[144]THE PATRICK MOORE ASTRONOMY PROGRAM"
  13. 13 PRINT"     [160]LEAVE THE DISK[160]INTO[160]THE DRIVE,"
  14. 14 PRINT"      THEN PRESS THE  SPACE [146][144] BAR."
  15. 15 GETA$:IFA$<>CHR$(32)THEN15
  16. 16 RETURN
  17. 17 POKE781,X:POKE782,Y:POKE783,0:SYS65520:RETURN
  18.